home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #5 / Commodore_Disk_User_Vol.4_5_1991_-.d64 / amiga show (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  56 lines
  1. 10 rem ****************
  2. 20 rem ** amiga show **
  3. 30 rem **     by     **
  4. 40 rem ** lee bamber **
  5. 50 rem ****************
  6. 60 poke147,0:sys57812"amiga data",8,1:sys62631
  7. 70 sys57812"c.am char(hand)",8,1:sys62631
  8. 99 rp=0
  9. 100 rem hand screen
  10. 110 poke53280,1:poke53281,1:poke53272,26:poke53270,216:poke53282,12:poke53283,14
  11. 120 print"[129]c[147]":poke49152,25:poke49153,40:poke251,92:poke252,193:poke253,0
  12. 125 poke254,4:sys49200:fort=0to1000:nextt
  13. 130 poke147,0:sys57812"c.am char(menu)",8,1:sys62631
  14. 135 gosub140
  15. 139 goto 180
  16. 140 poke53280,6:poke53281,6:poke53270,200:poke53272,28:print"c[147]"
  17. 150 poke49152,25:poke49153,40:poke251,68:poke252,197:poke253,0:poke254,4
  18. 155 sys49200:fort=1024to1063:l=peek(t):ifl=31thenpoket,53
  19. 160 nextt:ifrp=0thenfort=0to2000:nextt
  20. 170 poke49152,10:poke49153,26:poke251,43:poke252,201:poke253,41:poke254,4
  21. 175 sys49200:fort=0to1000:nextt
  22. 179 return
  23. 180 fori=2to4:fort=1027to1031:poket+(55296-1024)+(i*40),0:nextt:nexti
  24. 190 fort=0to500:nextt:poke49152,10:poke49153,12:poke251,70:poke252,201
  25. 195 poke253,207:poke254,4:sys49200
  26. 200 fort=0to2000:nextt:print"[147]":rp=1:gosub140
  27. 210 fori=5to7:fort=1032to1036:poket+(55296-1024)+(i*40),0:nextt:nexti
  28. 220 fort=0to500:nextt:poke49152,8:poke49153,16:poke251,228:poke252,202
  29. 230 poke253,37:poke254,5:sys49200
  30. 250 fori=9to11:fort=1046to1050:poket+(55296-1024)+(i*40),0:nextt:nexti
  31. 260 fort=0to500:nextt:poke49152,6:poke49153,14:poke251,247:poke252,202
  32. 270 poke253,250:poke254,5:sys49200
  33. 280 fort=0to2000:nextt:print"[147]":gosub140
  34. 290 fori=2to4:fort=1042to1046:poket+(55296-1024)+(i*40),0:nextt:nexti
  35. 300 fort=0to3000:nextt:print"[147]":poke53272,23:poke53270,200
  36. 310 print" [215]hat you have just seen was a small"
  37. 320 print" clip of the [193]miga startup and the
  38. 330 [153]" atnmiga (NULL)orkbench screen. (NULL)he (NULL)orkbench
  39. 340 print" is a clever utility which can totally
  40. 350 [153]" manipluate most disk files. right$t also
  41. 360 print" contains alot of sub-programs.
  42. 365 [153]" val.g lenalcualtors, lenlocks, val.t.c
  43. 370 print" [201]f you would like to see the startup
  44. 380 [153]" hand again press f1wait. right$f you wish to
  45. 390 print" view the main [215]orkbench press f3[146].
  46. 400 [153]" (NULL)r if you wish to quit this demo,
  47. 410 print"[160]press f7[146].
  48. 420 [153]"   (NULL)he atnmiga (NULL)how was created by (NULL)ee    ";
  49. 430 [153]"  peekamber for lenommodore str$isk (NULL)ser 1990   ";
  50. 440 [161]a$:[139]a$[178]""[167][137]440
  51. 450 [139]a$[178]"input"[167][137]100
  52. 455 [139]a$[178]"dim"[167][137]130
  53. 460 [139]a$[178]"let"[167][153]"load    goodbye folks!!!":[151]53280,14:[151]53272,21:[128]
  54. 470 [137]440
  55. 999 [129]t[178]0[164]500
  56.